home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / DOpus_Install / Core / Storage / Modules / arcbrowse.dopus5 next >
Text File  |  1996-11-04  |  925b  |  36 lines
  1. /*
  2.  
  3.    $VER: arcbrowse.dopus5 1.0 (10.07.96)
  4.  
  5.    Example of an 'arexx module'. This program adds a "Browse" command to Opus,
  6.    and also installs a PopUpExtension to add a 'Browse' item to LHA and LZX
  7.    popup menus. When the user selects the Browse option, ArcDir is automatically
  8.    started in Browse mode.
  9.  
  10.    This program must go in the DOpus5:Modules directory. It requires
  11.    ArcDir.dopus5 by Edmund Vermeulen to be in DOpus5:ARexx.
  12.  
  13.    The "Browse" command is added as private, meaning it will not show up in
  14.    the command list.
  15.  
  16. */
  17.  
  18. parse arg portname ' ' function ' ' source ' ' dest ' ' filename
  19. address value portname
  20. options results
  21.  
  22. /* Initialise */
  23.  
  24. if function='init' then do
  25.     dopus command "Browse" program "arcbrowse" 'source' ext 'Browse...' type L?? private
  26.     exit
  27.     end
  28.  
  29.  
  30. /* Browse function */
  31.  
  32. if function='Browse' then do
  33.     dopus rx 'DOpus5:ARexx/ArcDir.dopus5 Browse' portname filename source
  34.     exit
  35.     end
  36.